home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earkit / browser / ibrowsescripts / rexx / offlinemiami.ibrx < prev    next >
Text File  |  1998-05-24  |  1KB  |  60 lines
  1. /* OfflineMiami Sören Forsberg 1998 */
  2. /*  */
  3. OPTIONS RESULTS
  4.  
  5. window='YES'  /* Delete  this line to remove window */
  6.  
  7.  
  8.     IF SHOW('Ports','MIAMI.1') THEN DO
  9.       ADDRESS 'MIAMI.1' 
  10.       'ISONLINE'
  11.       result=rc
  12.       IF result=0 THEN DO
  13.         ok=open('OfflineMiami','CON:60/100/150/22/OfflineMiami/cds')
  14.         call writeln 'OfflineMiami','    Miami is'
  15.         call writeln 'OfflineMiami','ALLREADY OFFLINE!!'
  16.         ADDRESS "COMMAND" "wait 3"
  17.       END 
  18.       'ISONLINE'
  19.       result=rc
  20.       IF result=1 THEN DO
  21.         'OFFLINE'
  22.         IF window='YES' THEN CALL WINDOW
  23.       END
  24.  
  25.     END
  26.  
  27.     IF ~SHOW('Ports','MIAMI.1') THEN DO
  28.         ok=open('OfflineMiami','CON:60/100/150/22/OfflineMiami/cds')
  29.         call writeln 'OfflineMiami','  Miami is'
  30.         call writeln 'OfflineMiami','not running!!'
  31.         ADDRESS "COMMAND" "wait 3"
  32.     END
  33.  
  34.  
  35. EXIT    
  36.  
  37.  
  38. WINDOW:
  39.             ok=open('OfflineMiami','CON:60/100/100/22/OfflineMiami/')
  40.             a=1
  41.             cleft='08'x
  42.             call writeln 'OfflineMiami',' Hold on!'
  43.             call writeln 'OfflineMiami',' Miami is'
  44.             call writech 'OfflineMiami','Disconnecting'
  45.             ADDRESS "COMMAND" "wait 1"
  46.             DO FOREVER
  47.                 IF ~SHOW('Ports','MIAMI.1') THEN exit
  48.                 ADDRESS 'MIAMI.1' 'ISONLINE'
  49.                 result=rc
  50.                 IF ~result then exit
  51.                 call writech 'OfflineMiami',cleft
  52.                 a=a+1
  53.                 ADDRESS "COMMAND" "wait 1"
  54.                 If a=14 then Do
  55.                     a=1
  56.                     call writech 'OfflineMiami','Connecting'
  57.                 END
  58.  
  59.             END
  60. RETURN